home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 April / 1988-04.d64 / smart val (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  41 lines
  1. 100 rem copyright 1988 compute! publications, inc. - all rights reserved
  2. 110 print chr$(147)"[144]   copyright 1988 compute! pub., inc."
  3. 120 print tab(11)"all rights reserved"
  4. 130 gosub 1000
  5. 140 print chr$(147)"smart val() installed.":end
  6. 1000 rem read and store machine code
  7. 1010 sa=49152:rem starting address
  8. 1020 h1=int((sa+13)/256):l1=(sa+13)-h1*256
  9. 1030 h2=int((sa+150)/256):l2=(sa+150)-h2*256:cs=0
  10. 1040 for ad=sa to sa+206:read ml:cs=cs+ml:poke ad,ml:next
  11. 1050 if cs<>23175 then print chr$(147)"*** error in data statements ***":end
  12. 1060 poke sa+5,l1:poke sa+9,h1:poke sa+133,l2:poke sa+138,h2:rem relocate ml
  13. 1070 sys 49152
  14. 1080 return
  15. 1090 data 169,076,133,124,169,013,133,125
  16. 1100 data 169,192,133,126,096,141,255,003
  17. 1110 data 104,141,252,003,104,141,253,003
  18. 1120 data 072,173,252,003,072,201,217,208
  19. 1130 data 007,173,253,003,201,183,240,011
  20. 1140 data 173,255,003,201,058,176,003,076
  21. 1150 data 128,000,096,104,169,220,072,186
  22. 1160 data 142,254,003,165,113,141,248,003
  23. 1170 data 165,114,141,249,003,162,079,189
  24. 1180 data 000,002,157,167,003,202,016,247
  25. 1190 data 056,165,036,229,122,168,162,023
  26. 1200 data 201,081,176,073,169,000,141,013
  27. 1210 data 003,153,000,002,136,177,122,153
  28. 1220 data 000,002,136,016,248,169,000,133
  29. 1230 data 122,169,002,133,123,032,121,165
  30. 1240 data 173,000,003,141,250,003,173,001
  31. 1250 data 003,141,251,003,169,150,141,000
  32. 1260 data 003,169,192,141,001,003,032,115
  33. 1270 data 000,032,138,173,162,000,173,250
  34. 1280 data 003,141,000,003,173,251,003,141
  35. 1290 data 001,003,173,013,003,138,141,013
  36. 1300 data 003,240,006,169,000,133,097,133
  37. 1310 data 102,173,248,003,133,113,173,249
  38. 1320 data 003,133,114,162,079,189,167,003
  39. 1330 data 157,000,002,202,016,247,169,000
  40. 1340 data 133,013,174,254,003,154,096,000
  41.